home *** CD-ROM | disk | FTP | other *** search
Text File | 1996-02-19 | 1.8 KB | 62 lines | [TEXT/MPS ] |
- execute "{OpenDocBuildSupportDir}BMCommon"
-
- set exit 0
-
- # SHOW PROJECT PATH
- if "{1}" == "-s"
- set makefile "`streamedit -e "{pfpat}" "{ProjPrefs}"`"
- (evaluate "{makefile}" =~ /(?+:)®1?+.make/) ∑∑ dev:null
- alert "The current project path is:∂n∂n {®1}"
-
- # CHANGE PROJECT
- else if "{1}" == "-c"
- set project "`getfilename -b Choose -m "Choose the project's makefile." -q -t TEXT`"
- if ( "{project}" != "" )
- streamedit -e "1 Replace /≈/ 'pf: {project}'" "{ProjPrefs}" -o "{ProjPrefs}"
- (evaluate "{project}" =~ /?+:(?+)®1.make/) ∑∑ dev:null
- set temp "{®1}"
- streamedit -e "2 Replace /≈/ 'pn: {temp}'" "{ProjPrefs}" -o "{ProjPrefs}"
- end
-
- # MODIFY PROJECT
- else if "{1}" == "-m"
- set makefile "`streamedit -e "{pfpat}" "{ProjPrefs}"`"
- open "{makefile}"
-
- # REMOVE PPC OBJECTS
- else if "{1}" == "-ppc"
- confirm "Are you sure you want to delete your PPC object files for the “{OpenDocCurrentProject}” project?"
- set st "{status}"
- if {st} == 0
- set makefile "`streamedit -e "{pfpat}" "{ProjPrefs}"`"
- execute "{OpenDocBuildSupportDir}BMSettings"
- (evaluate "{makefile}" =~ /(?+:)®1?+.make/) ∑∑ dev:null
- set path "{®1}Objects:{PPCcompiler}:"
- delete -y -i "{path}"
- end
-
- # REMOVE 68K OBJECTS
- else if "{1}" == "-68k"
- confirm "Are you sure you want to delete your PPC object files for the “{OpenDocCurrentProject}” project?"
- set st "{status}"
- if {st} == 0
- set makefile "`streamedit -e "{pfpat}" "{ProjPrefs}"`"
- execute "{OpenDocBuildSupportDir}BMSettings"
- (evaluate "{makefile}" =~ /(?+:)®1?+.make/) ∑∑ dev:null
- set path "{®1}Objects:{68kcompiler}:"
- delete -y -i "{path}"
- end
-
-
- # SWITCH MENU TO PPC
- else if "{1}" == "-sp"
- streamedit -e '3 Replace /≈/ "ca: PPC"' "{ProjPrefs}" -o "{ProjPrefs}"
-
- # SWITCH MENU TO 68K
- else if "{1}" == "-sk"
- streamedit -e '3 Replace /≈/ "ca: 68k"' "{ProjPrefs}" -o "{ProjPrefs}"
-
- end
-
-
- set exit 1